home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / disk / misc / HFM2_2.lha / HFMounter2_2 / Config_HFM < prev    next >
Text File  |  1996-09-22  |  4KB  |  137 lines
  1. ;$VER:ConfigScript 1.1 for HFMounter 2.2
  2. (set @user-level 2)
  3. (set @default-dest "SYS:C/")
  4. (complete 0)
  5. (message "HFMounter 2.2 Configuration-Utility\n HFMounter is ©1995-1996 by SuicideSoft\n"
  6.          "\nAfter choosing HFMounter, you may change it's"
  7.          " behaviour with this installer-script, setting it's tooltypes according to your "
  8.          "personal needs.\n\n"
  9.          "Nach Auswahl des HFMounter's, kannst Du sein\n"
  10.          "Verhalten durch Setzen der Tooltypes nach Deinen\n"
  11.          "persönlichen Beduerfnissen konfigurieren.")
  12. (set #File-Txt (cat "Where is your installed HFM? Please select the file!\n\n"
  13.                     "Wo hast Du HFM installiert? Bitte wähle es aus!"))
  14. (set #File-Help (cat "\nThis section lets you choose the \n"
  15.                      "installed HFMounter\n\n"
  16.                      "Hier kannst Du den HFMounter auswählen, da\n"
  17.                      "dessen Tooltypes geändert werden sollen.\n\n"
  18.                      "Default SYS:C/HFM\n\n\n" @askfile-help))
  19. (set #DMS-Txt (cat "Where is your DMS executable located? Please select the file!\n\n"
  20.                    "Wo hast Du DMS installiert? Bitte wähle es aus!")
  21. )
  22. (set #DMS-Help (cat "\nGive the path plus the filename in here\n\n"
  23.                     "Hier wählst Du das zu benutzende DMS-Executable aus\n")
  24. )
  25.  
  26. (complete 10)
  27.  
  28. (set @hfname
  29.  (askstring (prompt "Which name should the Hf-Units get after formatting?\n\n"
  30.                     "Welchen Namen sollen die HF_Units nach dem Formatieren erhalten?\n")
  31.             (help @askstring-help)
  32.             (default "HF")
  33. ))
  34.  
  35. (complete 20)
  36.  
  37. (set @pubscreen
  38.  (askstring (prompt "On which Pubscreen should HfMounter pop up?\n\n"
  39.                     "Auf welchem PublicScreen soll HFMounter öfnnen?\n")
  40.             (help "No help available")
  41.             (default "Workbench")
  42. ))
  43.  
  44. (complete 30)
  45.  
  46. (set bitmask
  47.  (askoptions (prompt "Select the tooltypes for HFMounter\n\n"
  48.                      "Wähle die Tooltypes für HFMounter\n")
  49.              (help @askoptions-help)
  50.               (choices "FFS" "INTL" "DIRCACHE" "NOICONS"
  51.                           (default 11)
  52.               )
  53. ))
  54.  
  55. (complete 40)
  56.  
  57. (set @target
  58.  (askfile
  59.                (prompt #file-Txt)
  60.                (help #file-Help)
  61.                (default "SYS:C/HFM")
  62. ))
  63. (set @default-dest "")
  64.  
  65. (complete 50)
  66.  
  67. (set @dmspath
  68.  (askfile (prompt (cat #DMS-Txt))
  69.           (help (cat #DMS-Help))
  70.             (default "sys:c/dms")
  71. ))
  72.  
  73. (complete 60)
  74.  
  75. (set @archivepath
  76.  (askdir (prompt "Where is your favourite place for DMS-Archives located?\n\n"
  77.                  "Wo bewahrst Du Deine DMS-Archive auf?\n"
  78.          )
  79.          (help "Give the path which HFMounter will then use when decrunching the archives later\n\n"
  80.                "Wähle hier den Pfad, den HFMounter später beim Entpacken von DMS-Archiven benutzt\n"
  81.          )
  82.          (default "sys:")
  83. ))
  84.  
  85. (complete 70)
  86. (working)
  87.  
  88. ( tooltype (prompt "No prompting") (dest @target)
  89.    (settooltype "DMSPATH" @dmspath) (settooltype "ARCHIVEPATH" @archivepath)
  90.    (settooltype "NAME" @hfname) (settooltype "PUBSCREEN" @pubscreen)
  91.    (settooltype "DMSPATH") (settooltype "ARCHIVEPATH")
  92.    (settooltype "PUBSCREEN") (settooltype "NAME") (settooltype "FFS")
  93.    (settooltype "INTL") (settooltype "DIRCACHE") (settooltype "NOICONS")
  94. )
  95.  
  96. (complete 80)
  97.  
  98. (tooltype (prompt "No prompting") (dest @target)
  99.    (settooltype "NOICONS" "FALSE") (settooltype "DIRCACHE" "FALSE")
  100.    (settooltype "INTL" "FALSE") (settooltype "FFS" "FALSE")
  101. )
  102.  
  103. (complete 90)
  104.  
  105. (if (bitand bitmask 1)
  106.   (tooltype (prompt "No prompting") (dest @target)
  107.    (settooltype "FFS" "TRUE")
  108.   )
  109. )
  110.  
  111. (complete 93)
  112.  
  113. (if (bitand bitmask 2)
  114.  (tooltype (prompt "No prompting") (dest @target)
  115.    (settooltype "INTL" "TRUE")
  116.  )
  117. )
  118.  
  119. (complete 95)
  120.  
  121. (if (bitand bitmask 4)
  122.  (tooltype (prompt "No prompting") (dest @target)
  123.    (settooltype "DIRCACHE" "TRUE")
  124.  )
  125. )
  126.  
  127. (complete 97)
  128.  
  129. (if (bitand bitmask 8)
  130.  (tooltype (prompt "No prompting") (dest @target)
  131.    (settooltype "NOICONS" "TRUE")
  132.  )
  133. )
  134. (complete 100)
  135. ;(exit "That's all, configuration is finished now \n\n"
  136. ;      "Das wars Leute, Konfiguration abgeschlossen.")
  137.